#' 设置附加文件路径
#'
#' @param path 例如："F:/OneclickDatabase"
#'
#' @return 只需设置一次
#' @export
#'
#' @examples
#'
#' \dontrun{
#' # 第一次使用需要设置路径
#' U1_set_file_path(path = "F:/OneclickDatabase")
#'
#' # 设置路径后查看路径
#' U1_set_file_path()
#'
#' # 更换路径
#' U1_set_file_path(path = "D:/Oneclick")
#'
#' # 更换路径后查看路径
#' U1_set_file_path()
#'
#' }
#'
U1_set_file_path <- function(path = ""){
  if(!path==""){
    save(path, file = paste0(file.path( tools::R_user_dir("Oneclick", which = "data") , "path.Rdata" )))
  }else{
    if(file.exists( paste0(file.path( tools::R_user_dir("Oneclick", which = "data") , "path.Rdata" )))){
      load(paste0(file.path( tools::R_user_dir("Oneclick", which = "data") , "path.Rdata" )))
      message("您的附加文件路径为：",path)
    }else{
      warning("请设置您的附加文件路径!")
    }
  }
  }






